@除虫喷雾剂
EventScript_RepelWoreOff:: @ 82A4B2A
	lock
	msgbox Text_RepelWoreOff, MSGBOX_SIGN
	msgbox Text_CountinueUsing, MSGBOX_YESNO
	switch VAR_RESULT
	case NO, EventScript_RepelWoreOffEnd
	case YES, EventScript_ChooseWitchToUse
EventScript_RepelWoreOffEnd:
	closemessage
	release
	end
	
EventScript_ChooseWitchToUse:
	message Text_ChooseWitchToUse
	waitmessage
	switch VAR_LAST_REPEL
	case ITEM_SUPER_REPEL, EventScript_DefaultSuperRepel
	case ITEM_MAX_REPEL, EventScript_DefaultMaxRepel
	multichoicedefault 22, 6, MULTI_WHICH_REPEL, 0, 0
	goto EventScript_GetOption
EventScript_DefaultSuperRepel:
	multichoicedefault 22, 6, MULTI_WHICH_REPEL, 1, 0
	goto EventScript_GetOption
EventScript_DefaultMaxRepel:
	multichoicedefault 22, 6, MULTI_WHICH_REPEL, 2, 0
EventScript_GetOption:
	switch VAR_RESULT
	case 0, EventScript_Repel
	case 1, EventScript_SuperRepel
	case 2, EventScript_MaxRepel
	closemessage
	release
	end
	
EventScript_Repel:
	checkitem ITEM_REPEL, 1
	compare VAR_RESULT, 1
	goto_if_ne EventScript_HasNoRepel
	setvar VAR_REPEL_STEP_COUNT, 100
	setvar VAR_LAST_REPEL, ITEM_REPEL
	removeitem ITEM_REPEL, 1
	playse SE_REPEL
	closemessage
	release
	end
		
EventScript_SuperRepel:
	checkitem ITEM_SUPER_REPEL, 1
	compare VAR_RESULT, 1
	goto_if_ne EventScript_HasNoRepel
	setvar VAR_REPEL_STEP_COUNT, 200
	setvar VAR_LAST_REPEL, ITEM_SUPER_REPEL
	removeitem ITEM_SUPER_REPEL, 1
	playse SE_REPEL
	closemessage
	release
	end
		
EventScript_MaxRepel:
	checkitem ITEM_MAX_REPEL, 1
	compare VAR_RESULT, 1
	goto_if_ne EventScript_HasNoRepel
	setvar VAR_REPEL_STEP_COUNT, 250
	setvar VAR_LAST_REPEL, ITEM_MAX_REPEL
	removeitem ITEM_MAX_REPEL, 1
	playse SE_REPEL
	closemessage
	release
	end
	
EventScript_HasNoRepel:
	msgbox Text_HasNoRepel, MSGBOX_SIGN
	goto EventScript_ChooseWitchToUse

Text_RepelWoreOff: @ 82A4B33
	.string "REPEL's effect wore off…$"
	
Text_CountinueUsing:
	.string "要继续使用吗？$"
	
Text_ChooseWitchToUse:
	.string "使用哪种喷雾？$"
	
Text_HasNoRepel:
	.string "您的背包里没有这种喷雾！$"
	
	
@引虫香水
EventScript_LureWoreOff::
	lock
	msgbox Text_LureWoreOff, MSGBOX_SIGN
	msgbox Text_CountinueUsing, MSGBOX_YESNO
	switch VAR_RESULT
	case NO, EventScript_LureWoreOffEnd
	case YES, EventScript_ChooseWitchToUse2
EventScript_LureWoreOffEnd:
	closemessage
	release
	end
	
EventScript_ChooseWitchToUse2:
	message Text_ChooseWitchToUse2
	waitmessage
	switch VAR_LAST_LURE
	case ITEM_SUPER_LURE, EventScript_DefaultSuperLure
	case ITEM_MAX_LURE, EventScript_DefaultMaxLure
	multichoicedefault 22, 6, MULTI_WHICH_LURE, 0, 0
	goto EventScript_GetOption2
EventScript_DefaultSuperLure:
	multichoicedefault 22, 6, MULTI_WHICH_LURE, 1, 0
	goto EventScript_GetOption2
EventScript_DefaultMaxLure:
	multichoicedefault 22, 6, MULTI_WHICH_LURE, 2, 0
EventScript_GetOption2:
	switch VAR_RESULT
	case 0, EventScript_Lure
	case 1, EventScript_SuperLure
	case 2, EventScript_MaxLure
	closemessage
	release
	end
	
EventScript_Lure:
	checkitem ITEM_LURE, 1
	compare VAR_RESULT, 1
	goto_if_ne EventScript_HasNoLure
	setvar VAR_LURE_STEP_COUNT, 100
	setvar VAR_LAST_LURE, ITEM_LURE
	removeitem ITEM_LURE, 1
	playse SE_REPEL
	closemessage
	release
	end
		
EventScript_SuperLure:
	checkitem ITEM_SUPER_LURE, 1
	compare VAR_RESULT, 1
	goto_if_ne EventScript_HasNoLure
	setvar VAR_LURE_STEP_COUNT, 200
	setvar VAR_LAST_LURE, ITEM_SUPER_LURE
	removeitem ITEM_SUPER_LURE, 1
	playse SE_REPEL
	closemessage
	release
	end
		
EventScript_MaxLure:
	checkitem ITEM_MAX_LURE, 1
	compare VAR_RESULT, 1
	goto_if_ne EventScript_HasNoLure
	setvar VAR_LURE_STEP_COUNT, 250
	setvar VAR_LAST_LURE, ITEM_MAX_LURE
	removeitem ITEM_MAX_LURE, 1
	playse SE_REPEL
	closemessage
	release
	end
	
EventScript_HasNoLure:
	msgbox Text_HasNoLure, MSGBOX_SIGN
	goto EventScript_ChooseWitchToUse

Text_LureWoreOff:
	.string "香水的效果渐渐消失了...$"
	
Text_ChooseWitchToUse2:
	.string "使用哪种香水？$"
	
Text_HasNoLure:
	.string "您的背包里没有这种香水！$"
	
	
